AB or BB after substitution 







1 . 



2. 64K DATA & OP CODE CONVERTER 



3. 

4. JIM DUNSON 

5. 13900 RIVER ROAD 

6. PERDIDO KEY FL 32507 

7. (904) 492-1470 

8 . 

9. 



£=right arrow 
s=leave 1 space 
x=multiply symbol 
d=divide symbol 
■)/:more than symbol 
V=less than symbol 



1 0 CLEAR ;NT=0 ;BC=127 ;FC=8 ;FRINT ;PRINT "VDATA & OP CODE 

CONVERTER-/"; BOX -2,25,140,1,1 

2 0 PRINT ; PRINT "RENTER MINUS SIGN FIRSTs sssWITH NEGATIVE 

DECIMAL. 

3 0 PRINT ; PRINT "(isALL ENTRIES: ENTER ZEROSssLEADING, IF NEEDED, 

TOssssTOTAL REQUIRED DIGITS. 

4 0 CY=- 39; PRINT . .... .PUSH ANY KEY. . . . . . . ";IF KPCLEAR 

5 0 PRINT ; PRINT "(^SELECT KNOWN RADIX";PRINT ;PRINT"ss(l) BINARY" 

;PRINT "ss(2) DECIMAL"; PRINT "ss(3) HEXADECIMAL 

6 0 B=KP;IF (B=49)+(B=50)+(B=51)GOTO 80 

7 0 GOTO 230 

8 0 CLEAR ;IF B=49A=16;GOSUB 310;PRINT "BINARYs", ;GOTO 150 

9 0 IF B = 51A=4;GOSUB 310;PRINT "HEXADECIMALS ”, ;GOTO 190 

10 0 . ENTER DECIMAL 

1 1 0 A=5:C=0:GOSUB 310;PRINT "DECIMAL", :CX=49;FOR F=20022TO 20030STEP 

2;GOSUB 250;IF K=-3CX=49;PRINT "s", ;CX=43;PRINT ;C=2;F=F-2;NEXT F 
120 NEXT F;D=(Kx10000)+(Lx1000)+(Mx100)+(Nx10)+0;IF C=2D=-D 
13 0 PRINT ;GOSUB 330;GOSUB 370;GOTO 270 
140 .ENTER BINARY 

1 5 0 FOR F=20022TO 20052STEP 2;GOSUB 250;IF (%(F)V1)+(%(F)-/0)GOTO 230 

160 IF (F=20028)+(F=20036)+(F=20044)TV=32 

170 NEXT F;PRINT ;GOSUB 370;GOSUB 430;GOTO 270 

180 .ENTER HEX 

1 9 0 CX=55;FOR F=20014TO 20020STEP 2;A=KP;IF A-I/64IF A-/71%(F)=A-55;TV=A; 

NEXT F 

2 0 0 IF AH/47IF A-/58%(F)=A-48;TV=A;NEXT F 

2 10 IF FH/20020PRINT ;GOSUB 430;GOSUB 330;GOTO 270 
2 20 .WRONG KEY 

2 30 CLEAR ;CY=0;PRINT "iAWi/sINVALID ENTRYs V-/W-/";FOR F=lTO 100; 

NEXT FjCLEAR ;GOTO 50 
240 .TV B. & D. ENTRY 
2 5 0 %(F)=KP-48;TV=%(F)+ 48;RETURN 
2 60 .DISPLAY & OPTIONS 

2 70 C Y=34;PRINT "DATA & OP CODE EQUIVELANTS";BOX -1,29, 159, 1, l;CY=-39 
28 0 BOX -1, -32, 159, 1, 1;PRINT "(1) NEW RADIXss(s) REPEAT";IF KP-49CLEAR 
GOTO 50 

2 90 GOTO 80 
300 .PRE -ENTRY 

3 1 0 PRINT ; PRINT #1, "£sENTERs", A, "sDIGITS, ";PRINT ;RETURN 
3 20 .DECIMAL TO BINARY 

3 30 E=D;A=0;IF E-/0 E=E+32767+ 1 ;A=1 

3 40 FOR F=20052TO 20022STEP -2;E=Ed2;%(F)=RM;NEXT F:IF A=1K=J 
5 50 PRINT ;PRINT #1, "BINARYs”, K,L,M,N,”s",0,P,Q,R,”s”,S T U V ”s” 

W,X, Y, Z;RETURN 
3 6 0 . BINARY TO HEX 

3 7 0 J=Z+(2xY)+(4xX)+(8xW) ;I=V+(2xU)+(4xT)+(8xS) 

3 8 0 H=R+ (2xQ)+ (4xP)+(8xO);G=N+(2xM)+ (4xL)+(8xK) 

3 90 .TV HEX. HOLD GHIJ - 

400 PRINT ; PRINT "HEXADECIMAL”, ;CX=55;FOR F=20014TO 20020STEP 2; 
A=%(F)+48;IF AH/57A=A+7 

4 1 0 TV=A;NEXT FjPRINT ;RETURN 
4 2 0 .HEX TO DECIMAL 

430 A=D;IF GV7G=G-8;A=1 

440 D=(4096xG)+(256xH)+(16xI)+J;IF A= lD=D-32767-l 
45 0 PRINT ; PRINT "DECIMAL”, #1 9, D;RETURN 



TO RUN IN BB SUBSTITUTE AS FOLLOWS: 

1 1 0 FOR F=20022TO 20030 substitute FOR F=20098TO 20106 
FOR F =20022 TO 20052 



1 5 0 
160 

1 90 

2 1 0 
340 
400 



„ substitute FOR F=20098TO 20128 

FORF 3 ^4Tn = E^ )+(F l M ^ ±) SUb IF ( F= Hi0i)+<F=20112) + (F=20120) 

i OR F-200I4TQ 20020 substitute FOR F =20090TO 20096 ” 

IF F-t/ 20098 

substitute FOR F=20128TO 20098 
substitute FOR F=20090TO 20096 



substitute 



IF FH/ 20020 
FOR F=20052TO 20022 
FOR F =200I4 TQ 20020 



1 







AFB 
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1 . 

G4K DATA & OP CODE 
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G 
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JIM BUNSON 
1#9B0 RIVER ROAD 
PERDIDO KEY1852G 32587 
(304) 432-1470 



10 CLEftR ; NT = 0 ;BC= 127 ; FC=8; PRINT ; PRINT ">DATA & OP CODE CONVERT ER< BOX -2,25,1 
40 1 1 

20 PRINT ; PRINT “a ENTER MINUS SIGN FIRST WITH NEGATIVE DECIMAL. 

30 PRINT ; PRINT "a ALL ENTRIES: ENTER ZEROS LEADING, IF NEEDED, TO TOTAL REQ 

UIRED DIGITS. 

40 CY=-33; PRINT * .PUSH ANY KEY. IF KPCLEAR 

50 PRINT ; PRINT "a SELECT KNOWN RADIX* ; PRINT ; PRINT ” Cl) BINARY* ; PRINT * (2) 

DECIMAL* ; PRINT “ C3) HEXADECIMAL 

G0 B=KF; IF ( B=49 )+( B=50 ) + C B=51 )GOTO 80 
70 GOTO 230 

80 CLEAR ; IF B=43A=1G; GOSUB 310;FRINT "BINARY ",;GOTO 140 
30 IF B=51A=4; GOSUB 310;PRINT "HEXADECIMAL ",;GOTG 180 
100 .ENTER DECIMAL 

110 A=5 ; C=0 ; GOSUB 310; PRINT "DECIMAL* , ; CX=49; FOR F=20022TO 20030STEP 2;G0SUB 250 

; IF K=-3CX=43 ; PRINT ” *,; CX=43 ; PRINT * - ” , ; C=2; F=F-2; NEXT F 

120 NEXT F;D=(Kbl0000)+CLbl000)+CMbl00)+CNbl0)+O; IF C=2B=~D 

130 PRINT ; GOSUB 330; GOSUB 370; GOTO 270 

140 .ENTER BINARY 

150 FOR F=20022TO 20052STEP 2; GOSUB 250; IF C %(. F ) >1 ) + t %C F )< 0 )GOTO 230 

1G0 IF ( F =20028 )+( F=20036 )+( F=2B044 )TV=32 

170 NEXT F; PRINT ; GOSUB 370; GOSUB 430; GOTO 270 

180 .ENTER HEX _ „ ^ 

190 CX=55 ; FOR. F=20014TO 20020STEP 2;A=KP;IF A>G4IF A<71%C F )=A-55; TV=A; NEXT F 

200 IF A>47IF A<58%C F )~ A-4B ; TV=A; NEXT F 

210 IF F >20020PRINT ; GOSUB 430; GOSUB 330; GOTO 270 

220 .WRONG KEY 

230 CLEAR ;CY=0;PRINT *>>>>> INVALID ENTRY <<<<<“ ;FOR F=1TQ 100;NEXT F ; CLEAR ;G 
OTO 50 

240 .TV B. & D. ENTRY 

250 % C F ) =KP - 48 ; T V=% ( F ) +48 ; RETURN 

260 .DISPLAY & 0PTIONS 

270 CY=34; PRINT “DATA & OP CODE EQUIVELANTS “ ; BOX - -1 , 23, 153, 1 , 1 ; CY=-39 

280 BOX -1,-32, 153, 1,1; PRINT "(1) NEW RADIX C ) REPEAT"; IF KP=49CLEAR ; GOTO 50 



DIGITS, "; PRINT ; RETURN 



230 GOTO 80 
300 .PRE- ENTRY 

310 PRINT ; PRINT #1 , “a ENTER ”,F 
330 .DECIMAL TO BINARY 
340 E=B; A=0; IF E<0E=E+327G7+1 ; A=i 

350 FOR F=20052TO 20022STEP -2 ; E=Ec2; %C F )=RM ; NEXT F; IF A=1K=1 
3G0 PRINT ; PRINT #1, “BINARY " ,K,L,M,N, ” " ,0,P,Q,R, * “ ,S,T,U, V, 



1 , W , X , Y , Z ; RETURN 



370 .BINARY TO HEX 

380 J=Z+( 2b Y )+( 4bX ) + C 8bW ) ; I=V+C 2bU ) + ( 4bT ) + C 8bS ) 

330 H=R+( 2b Q )+C 4bP )+( 8b0 ) ; G=N+( 2bM ) + ( 4bL )+C 8bK ) 

400 .TV HEX. HOLD GHIJ 

410 PRINT ; PRINT "HEXADECIMAL" ,; CX=55; FOR F=20014TO 20028STEP 2; R=%C F )+48; IF A>5 
7A=A+7 

420 TV=A ; NEXT F; PRINT ; RETURN 












430 .HEX TO DECIMAL 
440 A=D; IF G>7G=G-8 ; A=1 

450 B=( 4036b G ) + ( 25BtaH ) + ( lGbl )+J ; IF A=1D=B-327G7- 1 
460 PRINT ; PRINT " DECIMAL" , #13 , D ; RETURN 



